home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Libris Britannia 4
/
science library(b).zip
/
science library(b)
/
COMMUNIC
/
1312.ZIP
/
MINITRM.ZIP
/
NETLOGON.MT
< prev
next >
Wrap
Text File
|
1988-07-29
|
1KB
|
41 lines
{ netlogon.mt - perform logon to the infonet network videotex center }
{ send CRs until we get a response from the network }
loop 8
type CR
wait 4
case '#'
break
case '*'
branch reqService
endwait
at_end_do
message 'PAD not responding with #'
quit
endloop
{ request X.3 pad service }
type 'x' CR
wait 100
case '*' { success }
{ do nothing }
failure
message 'PAD not responding with *'
quit
endwait
reqService: { request connection to VCC }
type '.vmt' CR
{ wait for connection }
wait 600
case '^_IS^Q' { wait till the prompt }
type userid password { send network userid and password }
case 'CLR', 'ERR'
message 'Unable to connect to network service'
failure { timeout or line dropped }
message 'User ID prompt not received'
endwait
end